perm filename TAK.IL[TIM,LSP]1 blob sn#677345 filedate 1982-09-13 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(PRETTYCOMPRINT TAKCOMS)
C00003 ENDMK
CāŠ—;
(PRETTYCOMPRINT TAKCOMS)

(RPAQQ TAKCOMS ((FNS TAK)))

(DEFINEQ (TAK (LAMBDA (X Y Z)
		      (COND ((NOT (ILESSP Y X))	
			     Z)
			    (T (TAK (TAK (ISUB X) Y Z)
				    (TAK (ISUB Y) Z X)
				    (TAK (ISUB Z) X Y))))) ))

(TAK 18 12 6)